The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Credit.dxr/00002.ls

Text File | 1998-11-19 | 737 b | 30 lines

on prepareMovie
  cursor(200)
end

on startMovie
  set the keyDownScript to "QuitMovie"
  set the mouseDownScript to "quit"
end

on pan
  set sprite1 to 1
  set sprite2 to 2
  set panostep to 2
  set panowidth to the width of sprite sprite1
  set the locH of sprite sprite1 to the locH of sprite sprite1 - panostep
  set the locH of sprite sprite2 to the locH of sprite sprite2 - panostep
  if the right of sprite sprite1 < 640 then
    set the locH of sprite sprite2 to the right of sprite sprite1 - panostep
  end if
  if the right of sprite sprite2 < 640 then
    set the locH of sprite sprite1 to the right of sprite sprite2 - panostep
  end if
end

on quitmovie
  if (the key = "q") and the commandDown then
    quit()
  end if
end